home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / amos / AMOS1097.lzh / AMOSLIST / 000045_amos-request@svcs1.digex.net_Fri Oct 3 09:58:02 1997.msg < prev    next >
Internet Message Format  |  1997-11-02  |  3KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail4.access.digex.net (8.8.5/8.8.5) with ESMTP id JAA25757
  3.     for <mcox@access.digex.net>; Fri, 3 Oct 1997 09:57:54 -0400 (EDT)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id GAA01299
  6.     for amos-out; Fri, 3 Oct 1997 06:38:48 -0400 (EDT)
  7. Received: from mail4.access.digex.net (mail4.access.digex.net [205.197.247.2])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id GAA01296
  9.     for <amos-list@svcs1.digex.net>; Fri, 3 Oct 1997 06:38:47 -0400 (EDT)
  10. Received: from emma.talk-101.com (emma.talk-101.com [193.164.165.7])
  11.     by mail4.access.digex.net (8.8.5/8.8.5) with SMTP id GAA07411
  12.     for <amos-list@access.digex.net>; Fri, 3 Oct 1997 06:38:45 -0400 (EDT)
  13. Received: from [193.164.165.210] by emma.talk-101.com (NTMail 3.02.13) with ESMTP id ga059286 for <amos-list@access.digex.net>; Fri, 3 Oct 1997 10:06:05 +0100
  14. From: Anthony Sherratt <SHEZZOR@mail.talk-101.com>
  15. To: Amos-List <amos-list@access.digex.net>
  16. Date: Fri, 03 Oct 1997 09:53:22 +0500
  17. Message-ID: <yam7215.1148.2015244624@mail.talk-101.com>
  18. In-Reply-To: <3432ADAE.5DD4@swipnet.se>
  19. X-Mailer: YAM 1.3.4 [020] - Amiga Mailer by Marcel Beck
  20. Subject: Re: need help
  21. MIME-Version: 1.0
  22. Content-Type: text/plain; charset=iso-8859-1
  23. X-Info: Talk-101 The Complete Business Internet Solution
  24. Content-Transfer-Encoding: 8bit
  25. X-MIME-Autoconverted: from quoted-printable to 8bit by svcs1.digex.net id GAA01297
  26. Status: O
  27. X-Status: 
  28.  
  29. On 02-Oct-97, mtl.wberg@swipnet.se wrote:
  30.  
  31. >When i read a text file without that i will recive an error mezz
  32. >(input to long), 
  33.  
  34. >Ex
  35. >open in 1,a$
  36. >repeat
  37. >input #1,b$
  38. >until pof(1)=lof(1)
  39.  
  40. Your better off to load the text file into a memory bank. Once this is
  41. done then just Peek from it to read each letter and type to the screen.
  42.  
  43. Screen Open 0,640,200,2,Hires
  44.  
  45. F$=Fsel$("")
  46. Open In 1,F$ : L=Lof(1) : Close 1 : Rem Gets file size 
  47. Reserve As Work 10,L : Rem Can be any bank number 
  48. Bload F$,Start(10) : Rem Load file into memory
  49. '
  50. While POS<L
  51.    LINE$=Peek$(Start(10)+POS,100,Chr$(10))
  52.    Print LINE$
  53.    Add POS,Len(LINE$)+1
  54. Wend 
  55.  
  56. Hope this helps,
  57.  
  58. Anthony Sherratt
  59.  
  60. -- 
  61.  ï¿½    _       ____ ï¿½ ____`------------------------------------------�
  62.      /.\  ï¿½  / __/  / __,\      *http://www.talk-101.com/users/asp*
  63.   ,_/ ï¿½_\_ _/__ \_ /  ___/  O��������������������������������������O
  64.  ,_____/  Y_      Y_  ï¿½  ï¿½  o   #Monty The Wolf - OUT VERY SOON#     o
  65.   |   ï¿½   [ ] |   [ ] | -�- Oo.....................................O
  66.   :   :   *DESIGN*  :   :  ï¿½
  67.  
  68.